home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 September / Australian PC User - September 2003 (CD1).iso / magstuff / web / files / psp801ev.exe / Data1.cab / Preset_MagnifyingLens_Night_ < prev    next >
Encoding:
Text File  |  2003-06-06  |  2.0 KB  |  62 lines
  1. from JascApp import *
  2.  
  3. def ScriptProperties():
  4.     return {
  5.         'Author': 'Kris Zaklika',
  6.         'Copyright': 'Copyright (C) 2002-2003, Jasc Software Inc., All Rights Reserved.',
  7.         'Description': 'A night vision effect',
  8.         'Host': 'Paint Shop Pro',
  9.         'Host Version': '8.00'
  10.         }
  11.  
  12. def Preset_MagnifyingLens():
  13.     return {
  14.         'Bound': (0.02625,0.0233333,0.98125,0.976667), 
  15.         'Darkness': 100, 
  16.         'Defocus': -1, 
  17.         'Frame': {
  18.             'FrameColor': (255,153,153), 
  19.             'Material': App.Constants.LensFrameMaterial.Gold, 
  20.             'Style': App.Constants.LensFrameShape.RoundedSquare, 
  21.             'Thickness': 4
  22.             }, 
  23.         'Illumination': {
  24.             'LightList': [{
  25.                 'LightColor': (0,190,45), 
  26.                 'LightDirection': (0.574062,0.700348,-0.424224), 
  27.                 'HighlightSize': 27
  28.                 },{
  29.                 'LightColor': (104,114,105), 
  30.                 'LightDirection': (0.01735,0.01735,-0.999699), 
  31.                 'HighlightSize': 0
  32.                 },{
  33.                 'LightColor': (64,64,64), 
  34.                 'LightDirection': (0.0573503,0.0173503,0.998203), 
  35.                 'HighlightSize': 43
  36.                 }], 
  37.             'MaxAmbience': 100, 
  38.             'MinAmbience': 0
  39.             }, 
  40.         'LensSurface': {
  41.             'EnvironmentMap': {
  42.                 'Active': App.Constants.Boolean.false
  43.                 }, 
  44.             'Gloss': 100, 
  45.             'Magnification': 19, 
  46.             'LensMaterial': {
  47.                 'Color': (0,114,0), 
  48.                 'Pattern': None, 
  49.                 'Gradient': None, 
  50.                 'Texture': None
  51.                 }, 
  52.             'LensOpacity': 70, 
  53.             'Refraction': 0, 
  54.             'ShapeType': App.Constants.LensShape.VCylindrical, 
  55.             'Shininess': 78
  56.             }
  57.         }
  58.  
  59. def Do(Environment):
  60.     App.Do( Environment, 'MagnifyingLens',         Preset_MagnifyingLens())
  61.  
  62.